home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESGRAF3.S < prev    next >
Text File  |  1993-03-10  |  1KB  |  42 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Graphics Library routines 3 of 5.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; graf_movebox    (book lists this as 'movebox', Alcyon bindings have 'mbox').
  17. ; graf_growbox
  18. ; graf_shrinkbox
  19. ;-------------------------------------------------------------------------
  20.  
  21.           globl     _graf_mbox
  22. _graf_mbox:
  23.           move.l    #$48060100,d0       ; AControl  72,6,1,0
  24.           bra.b     graf_gbox
  25.           globl     _graf_growbox
  26. _graf_growbox:
  27.           move.l    #$49080100,d0       ; AControl  73,8,1,0
  28.           bra.b     graf_gbox
  29.           globl     _graf_shrinkbox
  30. _graf_shrinkbox:
  31.           move.l    #$4A080100,d0       ; AControl  74,8,1,0
  32. graf_gbox:
  33. ;          .cargs    #4,intin
  34.  
  35. intin            =    4
  36.  
  37.           lea        intin(sp),a1
  38.           jmp        aes_do
  39.  
  40. ;          end of code
  41.  
  42.